home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / square.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  28 lines
  1. 10 POKE56,160:CLR
  2. 20 FORI=53000TOI+118:POKEI,PEEK(I-49889):NEXT
  3. 50 PRINTCHR$(142);"[147]                  [176][192][192][192] PIN B"
  4. 55 PRINT"                  [221]"
  5. 60 PRINT"                  [221]"
  6. 65 PRINT"            ^  O[192][192][177][192][192][192] PIN C"
  7. 70 PRINT"            [221]"
  8. 75 PRINT"            [221]SW1"
  9. 80 PRINT"            O[192][192][192][192][192][192][192][192][192] PIN 4"
  10. 90 PRINT"THIS PROGRAM, WHEN RUN, WRITES A 117"
  11. 95 PRINT"BYTE ML ROUTINE STARTING AT 53000." 
  12. 100 PRINT"TYPING IN ";CHR$(34);"SYS53000(N) <RETURN>";CHR$(34);" WILL"
  13. 105 PRINT"PRODUCE A TTL LEVEL SYMMETRICAL SQUARE"
  14. 110 PRINT"WAVE AT PIN 4 OF THE USER PORT, OF"
  15. 115 PRINT"FREQUENCY N/2 HZ, WHERE N IS A VARIABLE"
  16. 120 PRINT"OR NUMBER.  AN INTERESTING APPLICATION"
  17. 125 PRINT"FOLLOWS.  A 6/12 CARD EDGE CONNECTOR IS"
  18. 130 PRINT"WIRED AS SHOWN ABOVE (.156";CHR$(34);" CONTACT"
  19. 135 PRINT"SPACING).  A TERMINAL PROGRAM IS THEN"
  20. 140 PRINT"RUN AND THE SYS IS DONE WITH N = BIT"
  21. 145 PRINT"RATE. WHEN SW IS CLOSED, CONTIGUOUS"
  22. 150 PRINT"U'S SHOULD BE DISPLAYED.  IF THEY STOP"
  23. 155 PRINT"BEING WRITTEN AS SOON AS SW1 IS OPENED,"
  24. 160 PRINT"THEN THAT BIT RATE CAN BE RECEIVED"
  25. 165 PRINT"UNDER ABSOLUTE WORST CASE CONDITIONS,"
  26. 170 PRINT"VIZ., THE RECEIVER BUFFER STAYS EMPTY.";
  27. 175 GOTO175
  28.